home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.002.BusyBox / busybox.p / uglobals.p < prev    next >
Encoding:
Text File  |  1990-06-19  |  2.0 KB  |  88 lines  |  [TEXT/MPS ]
  1. {**********************************************************************
  2. {*
  3. {*
  4. {* BusyBox Globals -- Version 3.0  (interface)
  5. {*
  6. {* Copyright (c)
  7. {* Apple Computer, Inc.  1986-1989
  8. {* All Rights Reserved.
  9. {*
  10. {* This file contains the global variables used by the BusyBox 
  11. {* program.
  12. {*
  13. {**********************************************************************}
  14.  
  15. UNIT uGlobals;
  16.  
  17. INTERFACE
  18.  
  19. USES    
  20.  
  21.         types,
  22.         locator,
  23.         memory,
  24.         quickdraw,
  25.         intMath,
  26.         events,
  27.         controls,
  28.         windows,
  29.         lineedit,
  30.         dialogs,
  31.         STDFile;
  32.  
  33. const
  34.  
  35.         AppleMenuID       = $1100;
  36.             AboutItem     = $1101;
  37.         FileMenuID        = $1200;
  38.             CloseItem     = 255;   {For DA's}
  39.             QuitItem      = $1202;
  40.         EditMenuID        = $1300;
  41.             UndoItem      = 250;    {For DA's}
  42.             CutItem       = 251;    {For DA's}
  43.             CopyItem      = 252;    {For DA's}
  44.             PasteItem     = 253;    {For DA's}
  45.             ClearItem     = 254;    {For DA's}
  46.  
  47.         NumWindows       = 14;
  48.         NumWindowsMin1 = 13;
  49.  
  50.         ButButtonsID = 1;
  51.         ButStatTextID = 2;
  52.         ButLineEditID = 3;
  53.         ButPicturesID = 4;
  54.         ButPopUpsID = 5;
  55.         ButTextEditID = 6;
  56.         ButListsID = 7;
  57.         
  58.         Prog1ID = 8;
  59.         Prog2ID = 9;
  60.         Prog3ID = 10;
  61.         Prog4ID = 11;
  62.         Prog5ID = 12;
  63.         Prog6ID = 13;
  64.  
  65.  
  66. var
  67.        MyMemoryID    : integer;      {Application ID assigned by Memory Mgr}
  68.        Done          : boolean;      {True when quitting}
  69.        StaggerCount  : integer;      {used to stagger windows as they open }
  70.        Event         : WmTaskRec;    {All events are returned here}
  71.        
  72.        WindowList   : array [0..NumWindowsMin1] of WindowPtr;
  73.  
  74.        
  75.  
  76.  
  77. procedure InitGlobals;                                     {Setup variables}
  78.  
  79. IMPLEMENTATION
  80.  
  81. procedure InitGlobals;
  82.     begin   {of InitGlobals}
  83.         StaggerCount := 0;
  84.     end;    {of InitGlobals}
  85.  
  86.  
  87. END.
  88.